home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / DataScope 2.0.3 / DataScope2l / HDFpartial / dfi.h < prev   
Encoding:
C/C++ Source or Header  |  1994-05-04  |  14.6 KB  |  394 lines  |  [TEXT/????]
  1. /*****************************************************************************
  2. * 
  3. *              NCSA HDF version 3.00
  4. *                December, 1989
  5. *
  6. * NCSA HDF Version 3.00 source code and documentation are in the public
  7. * domain.  Specifically, we give to the public domain all rights for future
  8. * licensing of the source code, all resale rights, and all publishing rights.
  9. * 
  10. * We ask, but do not require, that the following message be included in all
  11. * derived works:
  12. * 
  13. * Portions developed at the National Center for Supercomputing Applications at
  14. * the University of Illinois at Urbana-Champaign.
  15. * 
  16. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  17. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  18. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  19. * 
  20. *****************************************************************************/
  21.  
  22. /*-----------------------------------------------------------------------------
  23.  * File:    dfi.h
  24.  * Purpose: HDF internal header file
  25.  * Invokes: stdio.h, sys/file.h
  26.  * Contents: 
  27.  *  Compilation parameters
  28.  *  Machine-dependent definitions
  29.  *  Flexibility definitions: i/o buffering, dynamic memory, structure i/o
  30.  *  Size parameters
  31.  * Remarks: To port to a new system, only dfi.h and Makefile need be modified.
  32.  *          This file is included with user programs, but users do not see it.
  33.  *---------------------------------------------------------------------------*/
  34.  
  35.  
  36. #ifndef DF_MAGICK        /* avoid re-inclusion */
  37.  
  38. #define    DF_MAGICK    "\016\003\023\001" /* ^N^C^S^A */
  39.  
  40. #ifndef FILE
  41. #include <stdio.h>
  42. #endif /*FILE*/
  43.  
  44. /*--------------------------------------------------------------------------*/
  45. /*          Compilation Parameters for Flexibility and Portability          */
  46.  
  47. /* modify this line to allow for machine dependencies */
  48. /*#define    SUN*/
  49. /**IMPORTANT** this is now in the in the makefile */
  50.  
  51. /* modify this line for buffered/unbuffered i/o */
  52. #define    DF_BUFFIO
  53.  
  54. /* modify this line for dynamic/static memory allocation */
  55. #define    DF_DYNAMIC
  56.  
  57. /* modify this line if structures cannot be read/written as is */
  58. #undef    DF_STRUCTOK        /* leave it this way - hdfsh expects it */
  59.  
  60. /* Current version number */
  61. #define    DFVERSION   2.78
  62.  
  63. /*--------------------------------------------------------------------------*/
  64. /*                              MT/NT constants                             */
  65. /*      four MT nibbles represent int, float, double, uchar                 */
  66. #define    DFMT_SUN        0x1111
  67. #define    DFMT_ALLIANT    0x1111
  68. #define    DFMT_IRIS4      0x1111
  69. #define    DFMT_UNICOS     0x3331
  70. #define    DFMT_CTSS       0x3331
  71. #define    DFMT_VAX        0x2221
  72. #define    DFMT_PC         0x4144    /* note byte swapping ??? */
  73.                 /* check this... */
  74. #define    DFMT_MAC        0x1111
  75. #define DFMT_SUN386    0x1444
  76.  
  77. #define    DFNT_VERSION    1    /* current version of NT info */
  78.  
  79. /* type info codes */
  80. #define    DFNT_UINT       1
  81. #define    DFNT_INT        2
  82. #define    DFNT_UCHAR      3
  83. #define    DFNT_CHAR       4
  84. #define    DFNT_FLOAT      5
  85. #define    DFNT_DOUBLE     6
  86.  
  87. /* class info codes for int */
  88. #define    DFNTI_MBO       1    /* Motorola byte order 2's compl */
  89. #define    DFNTI_VBO       2    /* Vax byte order 2's compl */
  90. #define    DFNTI_IBO       4    /* Intel byte order 2's compl */
  91.  
  92. /* class info codes for float */
  93. #define    DFNTF_IEEE      1    /* IEEE format */
  94. #define    DFNTF_VAX       2    /* Vax format */
  95. #define    DFNTF_CRAY      3    /* Cray format */
  96. #define    DFNTF_PC        4    /* PC floats - flipped IEEE */
  97.  
  98. /* class info codes for char */
  99. #define    DFNTC_BYTE      0    /* bitwise/numeric field */
  100. #define    DFNTC_ASCII     1    /* ASCII */
  101. #define    DFNTC_EBCDIC    5    /* EBCDIC */
  102.  
  103. /* array order */
  104. #define    DFO_FORTRAN     1    /* column major order */
  105. #define    DFO_C           2    /* row major order */
  106.  
  107. /*--------------------------------------------------------------------------*/
  108. /*                      Machine dependencies                                */
  109. #ifdef PC
  110. #ifndef O_RDONLY
  111. #include <fcntl.h>
  112. #define    L_INCR  1
  113. #endif /*O_RDONLY*/
  114. #define    int16 int
  115. #define    uint16 unsigned int
  116. #define    int32 long int
  117. #define    float32 double
  118. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  119. #undef DF_STRUCTOK                  /* structure writing will not work on PC */
  120. #undef DF_BUFFIO                    /* unbuffered i/o is faster */
  121. long longswap();                    /* provided elsewhere */
  122.  
  123.     /* in the next 3 lines, p is recast so right number of bytes passed */
  124.     /* ### Note that all calls modify p.  Need to use temporary ptr */
  125. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  126. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  127. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  128.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  129. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  130. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  131. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  132.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  133. #define    DF_CREAT(name, prot) creat(name, prot)
  134. #define    DF_MT   DFMT_PC
  135. #endif /*PC*/
  136.  
  137.  
  138. #ifdef UNICOS
  139. #ifndef O_RDONLY
  140. #include <sys/fcntl.h>              /* for unbuffered i/o stuff */
  141. #define    L_INCR  1
  142. #endif /*O_RDONLY*/
  143. #define    int16 int
  144. #define    uint16 int
  145. #define    int32 int
  146. #define    float32 float
  147. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  148. #undef DF_STRUCTOK          /* cannot directly read/write structures */
  149. #define    DF_CAPFNAMES            /* fortran names are in all caps */
  150. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  151. #define    INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  152. #define    INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  153.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  154. #define    UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  155. #define    INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  156. #define    INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  157.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  158. #define    DF_CREAT(name, prot) creat(name, prot)
  159. #define    DF_MT   DFMT_UNICOS
  160. #endif /*UNICOS*/
  161.  
  162.  
  163. #ifdef SUN
  164. #if ! defined mc68010 && ! defined mc68020 && ! defined mc68030
  165. #undef DF_STRUCTOK
  166. #endif
  167. #include <sys/file.h>               /* for unbuffered i/o stuff */
  168. #define    int16 short
  169. #define    uint16 unsigned short
  170. #define    int32 long
  171. #define    float32 float
  172. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  173. #ifndef DF_STRUCTOK
  174. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  175. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  176. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  177.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  178. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  179. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  180. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  181.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  182. #endif /*DF_STRUCTOK*/
  183. #define    DF_CREAT(name, prot) creat(name, prot)
  184. #define    DF_MT   DFMT_SUN
  185. #endif /*SUN*/
  186.  
  187. #ifdef SUN386
  188. #undef DF_STRUCTOK
  189. #include <sys/file.h>               /* for unbuffered i/o stuff */
  190. #define    int16 short
  191. #define    uint16 unsigned short
  192. #define    int32 long
  193. #define    float32 float
  194. #define    DFmovmem(from, to, len) memcpy(to, from, len)
  195. #ifndef DF_STRUCTOK
  196. #define    UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  197. #define    INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  198. #define    INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  199.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  200. #define    UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  201. #define    INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  202. #define    INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  203.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  204. #endif /*DF_STRUCTOK*/
  205. #define    DF_CREAT(name, prot) creat(name, prot)
  206. #define    DF_MT   DFMT_SUN386
  207. #endif /* SUN386 */
  208.  
  209. #ifdef ALLIANT
  210. #include <sys/file.h>               /* for unbuffered i/o stuff */
  211. #define    int16 short
  212. #define    uint16 unsigned short
  213. #define    int32 long
  214. #define    float32 float
  215. #define    DFmovmem(from, to, len) bcopy(from, to, len)
  216. #ifndef DF_STRUCTOK
  217. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  218. #define    INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  219. #define    INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  220.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  221. #define    UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  222. #define    INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  223. #define    INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  224.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  225. #endif /*DF_STRUCTOK*/
  226. #define    DF_CREAT(name, prot) creat(name, prot)
  227. #define    DF_MT   DFMT_ALLIANT
  228. #endif /*ALLIANT*/
  229.  
  230.  
  231. #ifdef IRIS4
  232. #undef DF_STRUCTOK
  233. #include <sys/types.h>
  234. #include <sys/file.h>               /* for unbuffered i/o stuff */
  235. #define    int16 short
  236. #define    uint16 unsigned short
  237. #define    int32 long
  238. #define    float32 float
  239. #define    DFmovmem(from, to, len) bcopy(from, to, len)
  240. #ifndef DF_STRUCTOK
  241. #define    UINT16READ(p, x)    { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  242. #define INT16READ(p, x)     { x = (*p++)<<8; x |= (*p++) & 255; }
  243. #define INT32READ(p, x)     { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  244.                                 x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  245. #define UINT16WRITE(p, x)   { *p++ = (x>>8) & 255; *p++ = x & 255; }
  246. #define INT16WRITE(p, x)    { *p++ = (x>>8) & 255; *p++ = x & 255; }
  247. #define INT32WRITE(p, x)    { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;   \
  248.                                 *p++ = (x>>8) & 255; *p++ = x & 255; }
  249. #endif /*DF_STRUCTOK*/
  250. #define DF_CREAT(name, prot) creat(name, prot)
  251. #define DF_MT   DFMT_IRIS4
  252. #endif /*IRIS4*/
  253.  
  254.  
  255. #ifdef MAC
  256. #include <memory.h>             /* malloc stuff for MPW 3.0 */
  257. #include <fcntl.h>              /* unbuffered IO stuff for MPW 3.0 */
  258. #ifdef THINK_C                  /* for LightSpeed C */
  259. #include <unix.h>
  260. #else /*THINK_C                   MPW, possibly others */
  261. #include <Files.h>              /* for unbuffered i/o stuff */
  262. #endif /*THINK_C*/
  263. #define    DF_CAPFNAMES            /* fortran names are in all caps */
  264. #define DF_DYNAMIC        /* use dynamic allocation */
  265. #define int16 short
  266. #define uint16 unsigned short
  267. #define int32 long
  268. #define float32 float
  269. #ifdef THINK_C                   /* LightSpeed C does not have memcpy */
  270. #define DFmovmem(from, to, len) DFImemcopy(from, to, len)
  271. #else /*THINK_C*/
  272. #define DFmovmem(from, to, len) memcpy(to, from, len)
  273. #endif /*THINK_C*/
  274. #define malloc(x)   NewPtr((Size)   (x))    /* don't use malloc on the Mac */
  275. #define free(x)     DisposPtr((Ptr) (x))    /* don't use free on the Nac   */ 
  276. #undef DF_STRUCTOK
  277. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  278. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  279. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  280.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  281. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  282. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  283. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  284.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  285. #define DF_CREAT(name, prot) open(name, O_WRONLY|O_TRUNC|O_CREAT)
  286. #define DF_MT   DFMT_MAC
  287. /*#define DF_PROTO*/        /* need prototype declarations */
  288. #endif /*MAC*/
  289.  
  290. #ifdef VMS
  291. #undef DF_BUFFIO                /* use only unbuff i/o - buff doesn't work! */
  292. #ifndef DFopen                  /* avoid double includes */
  293. #include "dfivms.h"
  294. #endif /*DFopen*/
  295. #undef DF_STRUCTOK
  296. #define DF_CAPFNAMES            /* fortran names are in all caps */
  297. #include <file.h>               /* for unbuffered i/o stuff */
  298. #define int16 short
  299. #define uint16 unsigned short
  300. #define int32 long
  301. #define float32 float
  302. #define DFmovmem(from, to, len) memcpy(to, from, len)
  303. #ifndef DF_STRUCTOK
  304. #define UINT16READ(p, x) { x = ((*p++) & 255)<<8; x |= (*p++) & 255; }
  305. #define INT16READ(p, x) { x = (*p++)<<8; x |= (*p++) & 255; }
  306. #define INT32READ(p, x) { x = (*p++)<<24; x|=((*p++) & 255)<<16;    \
  307.             x|=((*p++) & 255)<<8; x|=(*p++) & 255; }
  308. #define UINT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  309. #define INT16WRITE(p, x) { *p++ = (x>>8) & 255; *p++ = x & 255; }
  310. #define INT32WRITE(p, x) { *p++ = (x>>24) & 255; *p++ = (x>>16) & 255;  \
  311.             *p++ = (x>>8) & 255; *p++ = x & 255; }
  312. #endif /*DF_STRUCTOK*/
  313. #define DF_CREAT(name, prot) creat(name, prot)
  314. #define DF_MT   DFMT_VAX
  315. #endif /*VMS*/
  316.  
  317.  
  318.  
  319. /*--------------------------------------------------------------------------*/
  320. /*                      Flexibility parameters                              */
  321.  
  322. #ifdef DF_BUFFIO            /* set all calls to do buffered I/O */
  323. #define DF_OPEN(x,y) fopen(x,y)
  324. #define DF_CLOSE(x) fclose(x)
  325. #define DF_SEEK(x,y,z) fseek(x,y,z)
  326. #define DF_SKEND(x,y,z) fseek(x,y,z)
  327. #define DF_TELL(x) ftell(x)
  328. #define DF_READ(a,b,c,d) fread(a,b,c,d)
  329. #define DF_WRITE(a,b,c,d) fwrite(a,b,c,d)
  330. #define DF_FLUSH(a) fflush(a)
  331. #ifdef PC
  332. #define DF_RDACCESS "rb"
  333. #define DF_WRACCESS "rb+"
  334. #else /*PC*/
  335. #define DF_RDACCESS "r"
  336. #define DF_WRACCESS "r+"
  337. #endif /*PC*/
  338.  
  339. #else /*DF_BUFFIO         unbuffered i/o */
  340. #define DF_OPEN(x,y) open(x,y)
  341. #define DF_CLOSE(x) close(x)
  342. #define DF_SEEK(x,y,z) lseek(x,y,z)
  343. #define DF_SKEND(x,y,z) lseek(x,-1*y,z)
  344. #define DF_TELL(x) lseek(x,0L,1)
  345. #define DF_READ(a,b,c,d) read(d,a,b*c)
  346. #define DF_WRITE(a,b,c,d) write(d,a,b*c)
  347. #define DF_FLUSH(a)                             /* no need to flush */
  348. #ifdef PC
  349. #define DF_RDACCESS O_RDONLY | O_RAW
  350. #define DF_WRACCESS O_RDWR | O_RAW
  351. #else /*PC*/
  352. #define DF_RDACCESS O_RDONLY
  353. #define DF_WRACCESS O_RDWR
  354. #endif /*PC*/
  355. #endif /*DF_BUFFIO*/
  356.  
  357.  
  358.     /* if not allocating memory dynamically, need buffer for compression */
  359. #ifndef DF_DYNAMIC
  360. #define DF_TBUF
  361. #define DF_TBUFSZ    10000    /* buffer size */
  362. #endif /*DF_DYNAMIC*/
  363.  
  364.     /* if reading/writing structures not ok, need buffer for conversion */
  365. #ifndef DF_TBUF
  366. #ifndef DF_STRUCTOK
  367. #define DF_TBUF
  368. #define DF_TBUFSZ    256    /* buffer size can be smaller */
  369. #endif /*DF_STRUCTOK*/
  370. #endif /*DF_TBUF*/
  371.  
  372.     /* set buffer size */
  373. #ifdef DF_TBUF
  374. #ifndef DFMASTER
  375. extern
  376. #endif /*DFMASTER*/
  377.     char DFtbuf[DF_TBUFSZ];
  378. #endif /*DF_TBUF*/
  379.  
  380. /*--------------------------------------------------------------------------*/
  381. /*                          Size parameters                                 */
  382. #define DF_MAXDFS           32  /* How many DF's can be open at once */
  383. #define DF_DEFAULTDDS       16  /* How many DD's a file has by default */
  384. #define DF_MAXFNLEN         256 /* maximum length of filename parameters */
  385.  
  386. #ifndef MAC
  387. char *strncpy();
  388. char *strcpy();
  389. char *malloc();
  390. char *memcpy();
  391. #endif /*MAC*/
  392.  
  393. #endif /*DF_MAGICK*/
  394.